* Import ENH 2000-1
* This file converts the files from the ENH 2000-1 into Stata format. 
* Inputs: Files in Data/Original/encuestas de hogares/ENH/2000/1/h107mz00.P99
* Outputs: Files in Data/Importable/ENH/2000/TRIM 1

clear all
version 13.1

* Change
project, doinfo   
local master "`r(pdir)'"
local doname "`r(dofile)'" 

cap mkdir "`master'/Data/Importable/ENH/2000"
cap mkdir "`master'/Data/Importable/ENH/2000/TRIM 1"
cd "../../Data/Original/encuestas de hogares/ENH/2000"
cd eht20001

* Registro tipo 10 - Caracteristicas generales
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
parentesco 30-31 sexo 32 edad 33-34 estado_civil 35 str mpio_padres 36-38 str depto_padres 39-40  cabecera_padres 41 tiempo_residencia_tvida 42 tiempo_residencia 43-44 str mpio_vivia_antes 45-47 str depto_vivia_antes 48-49 cabecera_vivia_antes 50 lee_escribe 51 asiste_escuela 52 colegio_oficial 53 ultimo_grado_estudios 54-56 ///
area 147-148 fex 149-152 ///
if tipo_registro==10 using h107mz00.P99 , clear

save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_general.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_general.dta")

* Registro tipo 50 - Fuerza de trabajo
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
actividad 30 trabajo_mas 31 trabajo_familia 32 d_horas_t_familia_m15 33 horas_t_familia 34-35 d_prep_alim_vta 36 d_vta_artesania 37 d_cuid_nino 38 d_ela_vestido 39 otra 40 d_ninguna 41 no_trabajo_empleo 42 quiere_conseguir 43 busco_ultima 44 motivo_no_busco_ultima 45-46 trabajo_2s_u12meses 47 ha_buscado 48 ha_buscado_12m 49 no_ha_buscado_t 50-51 disponible 52 ///
area 147-148 fex 149-152 ///
if tipo_registro==50 using h107mz00.P99 , clear

save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_fuerza_trabajo.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_fuerza_trabajo.dta")

* Registro tipo 60 - Ocupados
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
trabajo_permanente 30 ocupacion 31-32 actividad_empresa 33-34 tipo_trabajador 35 contrato_escrito 36 termino_contrato 37 tiempo_contrato 38-39 empresa_contrato_misma 40 salario 41-50 salario_period 51 d_salario_alimentos 52 salario_alimentos 53-62 d_salario_vivienda 63 salario_vivienda 64-73 ganancia_mes 74-83 ing_arriendos 84-93 ing_pensiones 94-103 ing_ayudas 104-113 ing_intereses 114-123 ing_otros 124-133 afiliado_salud 134 horas_semana 135-137 d_menos_horas 138 menos_horas 139-141 d_mas_horas 142 mas_horas 143-144 antiguedad 145 ///
area 147-148 fex 149-152 ///
if tipo_registro==60 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_ocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_ocupados.dta")

* Registro tipo 61 - Empleo secundario
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
segundo_trabajo 30 tipo_segt 31 salario 32-41 actividad_segt 42-43 horas_ultima_segt 44-45 desea_cambiar 46 motivo_cambiar_capacidad 47 motivo_cambiar_ingresos 48 motivo_cambiar_menost 49 motivo_cambiar_ttemp 50 motivo_cambiar_prob 51 motivo_cambiar_nog 52 motivo_cambiar_efrzo 53 motivo_cambiar_esfrzom 54 motivo_cambiar_prob_amb 55 motivo_cambiar_segur 56 motivo_cambiar_otro 57 motivo_cambiar_ns 58 ha_buscado_cambiar 59 no_ha_buscado_cambiar_t 60-61 disponible_camb 62 quiere_trabajar_mas 63 horas_trabajar_mas 64-65 ///
area 147-148 fex 149-152 ///
if tipo_registro==61 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_secundario.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_secundario.dta")

* Registro tipo 70 - Desocupados
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
tiempo_buscando 30-31 buscado_tcompleto 32 buscado_tipo 33 buscado_ocupacion 34-35 buscado_actividad 36-37 razon_no_consigue 38 buscado_primeravez 39 tiempo_dejo_trabajar 40-41 trabajoo_ocupacion 42-43 str trabajoo_actividad 44-45 trabajoo_tipo 46 motivo_dejo_trabajo 47 ing_trabajo 48-57 str ing_intereses 58-67 ing_arriendos 68-77 ing_pensiones 78-87 ing_ayudas 88-97 ing_otros 98-107 ///
area 147-148 fex 149-152 ///
if tipo_registro==70 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_desocupados.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_desocupados.dta")

* Registro tipo 80 - Inactivos
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 orden 28-29 ///
ha_trabajado_2s 30 tiempo_inactivo 31 segunda_actividad 30 motivo_dejo_trabajo 33 ha_buscado 34 cuando_busco 35  motivo_no_buscado 36-37 ing_trabajo 38-47 ing_arriendos 48-57 ing_pensiones 58-67 ing_ayudas 68-77 ing_intereses 78-87 ing_otros 88-97 ///
area 147-148 fex 149-152 ///
if tipo_registro==80 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_inactivos.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_inactivos.dta")

* Registro tipo 90 - Gasto servicios 1
clear 
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 ///
d_transporte_bus 28 transporte_bus 29-38 d_transporte_metro 39 str transporte_metro 40-49 d_transporte_taxi 50 str transporte_taxi 51-60  d_comida_fuera 61 comida_fuera 62-71 d_lavado 72 lavado 73-82 ///
area 147-148 fex 149-152 ///
if tipo_registro==90 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser1.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser1.dta")

* Registro tipo 91 - Gasto servicios 2
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27 ///
d_cine 28 cine 29-38 d_corte_pelo 39 corte_pelo 40-49 ///
area 147-148 fex 149-152 ///
if tipo_registro==91 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser2.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser2.dta")

* Registro tipo 92 - Gasto servicios 3
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27   ///
d_telefono 28 telefono 29-38 d_celular 39 celular 40-49 d_antena 50 str antena 51-60 ///
area 147-148 fex 149-152 ///
if tipo_registro==92 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser3.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser3.dta")

* Registro tipo 94 - Gasto servicios 4
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27   ///
d_television 28 television 29-38 d_internet 39 internet 40-49 d_mantenimiento 50 str mantenimiento 51-60 /// 
area 147-148 fex 149-152 ///
if tipo_registro==93 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser4.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser4.dta")


* Registro tipo 94 - Gasto servicios 5
clear
infix tipo_registro 1-2 str id 3-27 str departamento 3-4 str municipio 5-7 segmento 8-10 estrato 11 sector 12-15 seccion 16-17 manzana 18-19 vivienda 20-22 hogar 23-24 personas_hogar 25-26 resultado_encuesta 27   ///
d_pasajes 28 pasajes 29-38 d_hoteles 39 hoteles 40-49 ///
area 147-148 fex 149-152 ///
if tipo_registro==94 using h107mz00.P99 , clear
save "`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser5.dta" , replace
project, creates("`master'/Data/Importable/ENH/2000/TRIM 1/2000_1_gastoser5.dta")



